program SmartSquare;

{$APPTYPE CONSOLE}
type
Rectangle = class
  public
    a,b : integer;
  private
    S : integer;
  procedure Square;
end;
SmartSq = class(Rectangle)
  constructor setting(newa, newb : integer);
end;

{ Rectangle }

procedure Rectangle.Square;
begin
  S := a*b;
  writeln(S);
end;

{ SmartSquare }

constructor SmartSq.setting(newa, newb : integer);
begin
  a := newa;
  b := newb;
end;
var
r : SmartSq;
begin
  r := SmartSq.Create;
  r.setting(10, 15);
  r.Square;
  readln;
end.
 